﻿''' <summary>
''' 为建筑物序列角的X-Y坐标值及TIER
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class BuildCorner
    Implements ICloneable

    Private m_x As Double = 0 '建筑物序列角的X轴坐标
    Private m_y As Double = 0 '建筑物序列角的Y轴坐标
    ''' <summary>
    ''' 建筑物序列角的X轴坐标
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property x() As Double
        Get
            Return m_x
        End Get
        Set(ByVal value As Double)
            m_x = value
        End Set
    End Property
    ''' <summary>
    ''' 建筑物序列角的Y轴坐标
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property y() As Double
        Get
            Return m_y
        End Get
        Set(ByVal value As Double)
            m_y = value
        End Set
    End Property
    ''' <summary>
    ''' 返回建筑物序列角的X-Y坐标，字符串
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function OutBuildCorner() As String
        Dim strBuilCor As String = ""
        strBuilCor += Me.m_x & " "
        strBuilCor += Me.m_y & vbCrLf
        Return strBuilCor
    End Function

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New BuildCorner
        obj.m_x = Me.m_x  '建筑物序列角的X轴坐标
        obj.m_y = Me.m_y  '建筑物序列角的Y轴坐标
        Return obj
    End Function
End Class
